home *** CD-ROM | disk | FTP | other *** search
/ Programming Sound Cards / Programming Sound Cards.iso / sound_87 / vtstrcon.pas < prev    next >
Pascal/Delphi Source File  |  1995-01-01  |  23KB  |  335 lines
  1. UNIT VTStrConst;
  2.  
  3. INTERFACE
  4.  
  5. USES Objects;
  6.  
  7.  
  8.  
  9.  
  10. CONST
  11.   StrPosition       = $1000;
  12.   StrPattern        = $1001;
  13.   StrNote           = $1002;
  14.   StrTempo          = $1003;
  15.  
  16.   StrModule         = $1100;
  17.   StrFilename       = $1101;
  18.   StrMemoryLeft     = $1102;
  19.   StrSampleRate     = $1103;
  20.   StrVolume         = $1104;
  21.  
  22.   StrMenu1          = $1201;
  23.   StrMenu2          = $1202;
  24.   StrMenu3          = $1203;
  25.   StrMenu4          = $1204;
  26.   StrMenu5          = $1205;
  27.   StrMenu6          = $1206;
  28.   StrMenu7          = $1207;
  29.   StrMenu8          = $1208;
  30.   StrMenu9          = $1209;
  31.   StrMenu0          = $120A;
  32.  
  33.   StrOscilloscView  = $1300;
  34.  
  35.   StrChannel        = $1400;
  36.  
  37.   StrCreditsTitle   = $14FF;
  38.  
  39.   StrDedicat        = $1500;
  40.   StrCredits        = $1520;
  41.  
  42.   StrUsageTop       = $2000;
  43.   StrUsage01        = $2001;
  44.   StrUsageBottom    = $200D;
  45.   StrUsageEmpty     = $200E;
  46.   StrUsagePressAKey = $200F;
  47.  
  48.   StrUsage1Beg      = $2020;
  49.   StrUsage2Beg      = $2040;
  50.   StrUsage3Beg      = $2060;
  51.   StrUsage4Beg      = $2080;
  52.  
  53.   StrInitializing   = $2200;
  54.  
  55.  
  56.  
  57.  
  58. PROCEDURE VTAddSpanishMsg(VAR List: TStrListMaker);
  59. PROCEDURE VTAddEnglishMsg(VAR List: TStrListMaker);
  60.  
  61.  
  62.  
  63.  
  64. IMPLEMENTATION
  65.  
  66.  
  67.  
  68.  
  69. PROCEDURE VTAddSpanishMsg(VAR List: TStrListMaker);
  70.   BEGIN
  71.     List.Put(StrPosition               , 'Posición:  ');
  72.     List.Put(StrPattern                , 'Patrón:    ');
  73.     List.Put(StrNote                   , 'Nota:      ');
  74.     List.Put(StrTempo                  , 'Tempo:     ');
  75.  
  76.     List.Put(StrModule                 , 'Módulo:    ');
  77.     List.Put(StrFilename               , 'Fichero:   ');
  78.     List.Put(StrMemoryLeft             , 'Mem. libre:');
  79.     List.Put(StrSampleRate             , 'Frecuencia:');
  80.     List.Put(StrVolume                 , 'Volumen:');
  81.  
  82.     List.Put(StrMenu1                  , 'PAr/Ab Otro patrón     ');
  83.     List.Put(StrMenu2                  , 'In/Fin Idem (principio)');
  84.     List.Put(StrMenu3                  , '1-8    Apagar canal    ');
  85.     List.Put(StrMenu4                  , 'F5-F9  Varias ventanas ');
  86.     List.Put(StrMenu5                  , 'Iz/Dch.Desplaza canales');
  87.     List.Put(StrMenu6                  , 'R/T    Frec. de salida ');
  88.     List.Put(StrMenu7                  , '+/-    Volumen         ');
  89.     List.Put(StrMenu8                  , 'D      Shell al DOS    ');
  90.     List.Put(StrMenu9                  , 'N/S    Sig. canción    ');
  91.     List.Put(StrMenu0                  , 'ESC    Parar           ');
  92.  
  93.     List.Put(StrOscilloscView          , 'Osciloscopio');
  94.  
  95.     List.Put(StrChannel                , 'Canal    ');
  96.  
  97.     List.Put(StrCreditsTitle           , '                          Créditos');
  98.  
  99.     List.Put(StrCredits                , '- Juan Carlos Arévalo  · │ Originador de todo el tinglado.');
  100.     List.Put(StrCredits+ 1             , '                         │ Cuerpo del programa. Estructura');
  101.     List.Put(StrCredits+ 2             , '                         │ general. Primeras versiones.');
  102.     List.Put(StrCredits+ 3             , '- Luis Crespo  ········· │ Antecesor del programa (JAMP).');
  103.     List.Put(StrCredits+ 4             , '                         │ Rutinas de DMA. Información sobre');
  104.     List.Put(StrCredits+ 5             , '                         │ Sound Blaster.');
  105.     List.Put(StrCredits+ 6             , '- Félix Sanz  ·········· │ Creación de los DOCs de usuario.');
  106.     List.Put(StrCredits+ 7             , '- Alejandro López  ····· │ Idea original de la mezcla de');
  107.     List.Put(StrCredits+ 8             , '                         │ canales en estéreo.');
  108.     List.Put(StrCredits+ 9             , '- Héctor Martínez  ····· │ Rutinas FFT. (no introducidas');
  109.     List.Put(StrCredits+10             , '                         │ todavía).');
  110.     List.Put(StrCredits+11             , '                         │ Idea original del sistema de');
  111.     List.Put(StrCredits+12             , '                         │ manejo de los 4 canales.');
  112.     List.Put(StrCredits+13             , '- David López  ········· │ Información sobre SB-Pro estéreo.');
  113.     List.Put(StrCredits+14             , '- Angel Trigo  ········· │ Información sobre SB-Pro estéreo.');
  114.     List.Put(StrCredits+15             , '- José Ruiz  ··········· │ Está creando la versión para');
  115.     List.Put(StrCredits+16             , '                         │ OS/2 (OS/2 de verdad ;-)');
  116.     List.Put(StrCredits+17             , '- Manuel Petit  ········ │ Está adaptando un driver de');
  117.     List.Put(StrCredits+18             , '                         │ ratón.');
  118.     List.Put(StrCredits+19             , '- Carlos Fernández  ···· │ Realizada una modificación en');
  119.     List.Put(StrCredits+20             , '                         │ el swapping, para que funcione');
  120.     List.Put(StrCredits+21             , '                         │ con CD-ROMS.');
  121.     List.Put(StrCredits+22             , '- Néstor Matas  ········ │ Traducción del manual al Inglés.');
  122.     List.Put(StrCredits+23             , #0);
  123.  
  124.     List.Put(StrDedicat                , #0);
  125.  
  126.     List.Put(StrUsageTop               ,' ┌────────────────────────────────────────────────────────────────────────────┐');
  127.     List.Put(StrUsage01                ,' │ VT  <fichero>[.MOD|.OKT|.WOW|.S3M|.STM|.669] [<opciones>] [@<fichero.VTO>] │');
  128.     List.Put(StrUsageBottom            ,' └────────────────────────────────────────────────────────────────────────────┘');
  129.     List.Put(StrUsageEmpty             ,' │                                                                            │');
  130.     List.Put(StrUsagePressAKey         ,'                      ---===≡≡≡ Pulsa  una tecla ≡≡≡===---');
  131.  
  132.     List.Put(StrUsage1Beg              ,' │ <fichero> acepta comodines (wildards). Se pueden especificar varios.       │');
  133.     List.Put(StrUsage1Beg+1            ,' │           También se puede especificar la canción que está dentro de una   │');
  134.     List.Put(StrUsage1Beg+2            ,' │           demo (ésta sin comodines) mediante la barra "/" (ver ejemplos).  │');
  135.     List.Put(StrUsage1Beg+3            ,'');
  136.     List.Put(StrUsage1Beg+4            ,' │ <fichero.VTO> es un fichero ASCII con líneas de parámetros. Se pueden      │');
  137.     List.Put(StrUsage1Beg+5            ,' │               especificar varios, cada uno con su arroba (@). Los ficheros │');
  138.     List.Put(StrUsage1Beg+6            ,' │               pueden llevar comentarios, precedidos por un símbolo de ";". │');
  139.     List.Put(StrUsage1Beg+7            ,' │               También se pueden anidar todo lo que se quiera.              │');
  140.     List.Put(StrUsage1Beg+8            ,#0);
  141.  
  142.     List.Put(StrUsage2Beg              ,' │ <opciones> es una lista de opciones, precedidas cada una por una barra "/" │');
  143.     List.Put(StrUsage2Beg+ 1           ,' │            o por un guión "-". Las opciones deben estar separadas por, al  │');
  144.     List.Put(StrUsage2Beg+ 2           ,' │            menos, un espacio. Algunas pociones pueden llevar un parámetro, │');
  145.     List.Put(StrUsage2Beg+ 3           ,' │            que se puede especificar a continuación, separado por un        │');
  146.     List.Put(StrUsage2Beg+ 4           ,' │            espacio o por dos puntos ":". Posibles opciones son:            │');
  147.     List.Put(StrUsage2Beg+ 5           ,'');
  148.     List.Put(StrUsage2Beg+ 6           ,' │   / ó -      interpreta lo que se haya especificado, y después continúa.   │');
  149.     List.Put(StrUsage2Beg+ 7           ,' │   /d:<disp.> dispositivo de salida.                                        │');
  150.     List.Put(StrUsage2Beg+ 8           ,' │   /f:<frec.> frecuencia de muestreo.                                       │');
  151.     List.Put(StrUsage2Beg+ 9           ,' │   /v:<vol.>  volumen del sonido.                                           │');
  152.     List.Put(StrUsage2Beg+10           ,' │   /sh:<cmd.> programa y parámetros que se ejecutan al hacer un shell.      │');
  153.     List.Put(StrUsage2Beg+11           ,' │   /ss:<pos.> posición de comienzo de la canción.                           │');
  154.     List.Put(StrUsage2Beg+12           ,' │   /sr:<pos.> posición de comienzo del bucle de la canción.                 │');
  155.     List.Put(StrUsage2Beg+13           ,' │   /sr:<pos.> posición de finalización de la canción.                       │');
  156.     List.Put(StrUsage2Beg+14           ,' │   /lq        "Low Quality", con ésto, ocupa menos memoria, pero suena peor.│');
  157.     List.Put(StrUsage2Beg+15           ,' │   /hq        "Hi  Quality", desactiva el anterior.                         │');
  158.     List.Put(StrUsage2Beg+16           ,' │   /flp       equivale a poner "ForceLoopMod = Sí" en el VT.CFG.            │');
  159.     List.Put(StrUsage2Beg+17           ,' │   /nofl      equivale a poner "ForceLoopMod = No" en el VT.CFG.            │');
  160.     List.Put(StrUsage2Beg+18           ,' │   /loop      equivale a poner "LoopMod = Sí" en el VT.CFG.                 │');
  161.     List.Put(StrUsage2Beg+19           ,' │   /nolp      equivale a poner "LoopMod = No" en el VT.CFG.                 │');
  162.     List.Put(StrUsage2Beg+20           ,' │   /bfil      equivale a poner "BassFilter = Sí" en el VT.CFG.              │');
  163.     List.Put(StrUsage2Beg+21           ,' │   /nobf      equivale a poner "BassFilter = No" en el VT.CFG.              │');
  164.     List.Put(StrUsage2Beg+22           ,#0);
  165.  
  166.     List.Put(StrUsage3Beg              ,' │ <disp.> puede ser:                                                         │');
  167.     List.Put(StrUsage3Beg+1            ,#0);
  168.  
  169.     List.Put(StrUsage4Beg              ,' │ Ejemplos: El intérprete de línes de comando es demasiado flexible para     │');
  170.     List.Put(StrUsage4Beg+ 1           ,' │           explicarlo aquí entero, así que para hacerse una idea de cómo    │');
  171.     List.Put(StrUsage4Beg+ 2           ,' │           funciona, examine los ejemplos y los ficheros .VTO incluídos.    │');
  172.     List.Put(StrUsage4Beg+ 3           ,'');
  173.     List.Put(StrUsage4Beg+ 4           ,' │   Este hace sonar la melodía "Axel F." por el altavoz del PC, con un       │');
  174.     List.Put(StrUsage4Beg+ 5           ,' │   volumen de 64 y una frecuencia de muestreo de 16000 Hz:                  │');
  175.     List.Put(StrUsage4Beg+ 6           ,'');
  176.     List.Put(StrUsage4Beg+ 7           ,' │       VT /v:64 /d:Speaker D:\MODS\AXEL_F.MOD /f 16000                      │');
  177.     List.Put(StrUsage4Beg+ 8           ,'');
  178.     List.Put(StrUsage4Beg+ 9           ,' │   Este hace sonar la música de la demo Unreal, de Future Crew, según el    │');
  179.     List.Put(StrUsage4Beg+10           ,' │   fichero .VTO. Al salir al shell, edita el fichero VT.PAS en el editor:   │');
  180.     List.Put(StrUsage4Beg+11           ,'');
  181.     List.Put(StrUsage4Beg+12           ,' │       VT @UNREAL.VTO /sh:C:\BIN\Q.EXE VT.PAS                               │');
  182.     List.Put(StrUsage4Beg+13           ,'');
  183.     List.Put(StrUsage4Beg+14           ,' │   Este toca las canciones 1 y 2 (cualquiera que sea su formato):           │');
  184.     List.Put(StrUsage4Beg+15           ,'');
  185.     List.Put(StrUsage4Beg+16           ,' │       VT 1 2                                                               │');
  186.     List.Put(StrUsage4Beg+17           ,'');
  187.     List.Put(StrUsage4Beg+18           ,' │   Este toca la canción 1 a un volumen de 64 y la canción 2 a 128:          │');
  188.     List.Put(StrUsage4Beg+19           ,'');
  189.     List.Put(StrUsage4Beg+20           ,' │       VT 1 /v:64 / /v 128 2                                                │');
  190.     List.Put(StrUsage4Beg+21           ,'');
  191.     List.Put(StrUsage4Beg+22           ,#0);
  192.  
  193.     List.Put(StrInitializing           ,'    Inicializando... ');
  194.  
  195.   END;
  196.  
  197.  
  198. PROCEDURE VTAddEnglishMsg(VAR List: TStrListMaker);
  199.   BEGIN
  200.     List.Put(StrPosition               , 'Position:  ');
  201.     List.Put(StrPattern                , 'Pattern:   ');
  202.     List.Put(StrNote                   , 'Note:      ');
  203.     List.Put(StrTempo                  , 'Tempo:     ');
  204.  
  205.     List.Put(StrModule                 , 'Module:    ');
  206.     List.Put(StrFilename               , 'Filename:  ');
  207.     List.Put(StrMemoryLeft             , 'Free mem.: ');
  208.     List.Put(StrSampleRate             , 'Frequency: ');
  209.     List.Put(StrVolume                 , 'Volume: ');
  210.  
  211.     List.Put(StrMenu1                  , 'PUp/Dn Next pattern    ');
  212.     List.Put(StrMenu2                  , 'Bg/End Idem (from beg) ');
  213.     List.Put(StrMenu3                  , '1-8    Turn off channel');
  214.     List.Put(StrMenu4                  , 'F5-F9  Change windows  ');
  215.     List.Put(StrMenu5                  , 'Lt/Rt  Shift channels  ');
  216.     List.Put(StrMenu6                  , 'R/T    Output freq.    ');
  217.     List.Put(StrMenu7                  , '+/-    Volume          ');
  218.     List.Put(StrMenu8                  , 'D      DOS Shell       ');
  219.     List.Put(StrMenu9                  , 'N/S    Next song       ');
  220.     List.Put(StrMenu0                  , 'ESC    Quit            ');
  221.  
  222.     List.Put(StrOscilloscView          , 'Oscilloscope');
  223.  
  224.     List.Put(StrChannel                , 'Channel  ');
  225.  
  226.     List.Put(StrCreditsTitle           , '                          Credits');
  227.  
  228.     List.Put(StrCredits                , '- Juan Carlos Arévalo    │ Originator of all this mess.');
  229.     List.Put(StrCredits+ 1             , '                         │ Program body, General structure.');
  230.     List.Put(StrCredits+ 2             , '                         │ First versions.');
  231.     List.Put(StrCredits+ 3             , '- Luis Crespo            │ Programs antecesor (JAMP).');
  232.     List.Put(StrCredits+ 4             , '                         │ DMA routines. Sound Blaster');
  233.     List.Put(StrCredits+ 5             , '                         │ Info.');
  234.     List.Put(StrCredits+ 6             , '- Félix Sanz             │ Creation of the user DOCs.');
  235.     List.Put(StrCredits+ 7             , '- Alejandro López        │ Original system of stereo');
  236.     List.Put(StrCredits+ 8             , '                         │ channels mixing.');
  237.     List.Put(StrCredits+ 9             , '- Héctor Martínez        │ FFT routines. (not yet');
  238.     List.Put(StrCredits+10             , '                         │ introduced).');
  239.     List.Put(StrCredits+11             , '                         │ Original idea of the 4 channel');
  240.     List.Put(StrCredits+12             , '                         │ handling system.');
  241.     List.Put(StrCredits+13             , '- David López            │ SB-Pro stereo info.');
  242.     List.Put(StrCredits+14             , '- Angel Trigo            │ SB-Pro stereo info.');
  243.     List.Put(StrCredits+15             , '- Pepe Lazo              │ Creating the MS-Windows');
  244.     List.Put(StrCredits+16             , '                         │ version.');
  245.     List.Put(StrCredits+17             , '- José Ruiz              │ Creating the OS/2 version');
  246.     List.Put(StrCredits+18             , '                         │ (a true OS/2 version ;-)');
  247.     List.Put(StrCredits+19             , '- Manuel Petit           │ Now fitting a mouse driver.');
  248.     List.Put(StrCredits+20             , '- Carlos Fernández       │ Made a modification in the');
  249.     List.Put(StrCredits+21             , '                         │ swapping system, to make it work');
  250.     List.Put(StrCredits+22             , '                         │ on CD-ROMS.');
  251.     List.Put(StrCredits+23             , '- Néstor Matas           │ Translation of this manual into');
  252.     List.Put(StrCredits+24             , '                         │ English.');
  253.     List.Put(StrCredits+25             , #0);
  254.  
  255.     List.Put(StrDedicat                , #0);
  256.  
  257.     List.Put(StrUsageTop               ,' ┌────────────────────────────────────────────────────────────────────────────┐');
  258.     List.Put(StrUsage01                ,' │ VT  <file.MOD|.OKT|.WOW|.S3M|.STM|.669] [<options>] [@<file.VTO>]          │');
  259.     List.Put(StrUsageBottom            ,' └────────────────────────────────────────────────────────────────────────────┘');
  260.     List.Put(StrUsageEmpty             ,' │                                                                            │');
  261.     List.Put(StrUsagePressAKey         ,'                       ---===≡≡≡ Press any key ≡≡≡===---');
  262.  
  263.     List.Put(StrUsage1Beg              ,' │ <file> accepts wildards. You can also specify more than one. Also, you can │');
  264.     List.Put(StrUsage1Beg+ 1           ,' │        specify the songs inside a demo (this time without wildcards)       │');
  265.     List.Put(StrUsage1Beg+ 2           ,' │        using the bar "/". (See the examples).                              │');
  266.     List.Put(StrUsage1Beg+ 3           ,'');
  267.     List.Put(StrUsage1Beg+ 4           ,' │ <file.VTO> is an ASCII file with mor parameter lines. You can specify as   │');
  268.     List.Put(StrUsage1Beg+ 5           ,' │            many as you want, each one with it''s at-sign "@". These files   │');
  269.     List.Put(StrUsage1Beg+ 2           ,' │        using the bar "/". (See the examples).                              │');
  270.     List.Put(StrUsage1Beg+ 3           ,'');
  271.     List.Put(StrUsage1Beg+ 4           ,' │ <file.VTO> is an ASCII file with mor parameter lines. You can specify as   │');
  272.     List.Put(StrUsage1Beg+ 5           ,' │            many as you want, each one with it''s at-sign "@". These files   │');
  273.     List.Put(StrUsage1Beg+ 6           ,' │            can have comments, beginning with a semicolon ";". They can     │');
  274.     List.Put(StrUsage1Beg+ 7           ,' │            also be nested to any level (memory permitting).                │');
  275.     List.Put(StrUsage1Beg+ 8           ,#0);
  276.  
  277.     List.Put(StrUsage2Beg              ,' │ <options> is a list of switches, preceded each one with a slash "/" or a   │');
  278.     List.Put(StrUsage2Beg+ 1           ,' │           hyphen "-". All options must be separated by, at least, a space. │');
  279.     List.Put(StrUsage2Beg+ 2           ,' │           Some options must have a parameter, which must be separated by a │');
  280.     List.Put(StrUsage2Beg+ 3           ,' │           space or a colon ":". Possible options are:                      │');
  281.     List.Put(StrUsage2Beg+ 4           ,'');
  282.     List.Put(StrUsage2Beg+ 5           ,' │   / or -     do all the options and songs specified, and then continue.    │');
  283.     List.Put(StrUsage2Beg+ 6           ,' │   /d:<device>sound device to be used.                                      │');
  284.     List.Put(StrUsage2Beg+ 7           ,' │   /f:<freq.> output sampling frequency.                                    │');
  285.     List.Put(StrUsage2Beg+ 8           ,' │   /v:<vol.>  sound volume.                                                 │');
  286.     List.Put(StrUsage2Beg+ 9           ,' │   /sh:<cmd.> program and parameters to be executed when shelling.          │');
  287.     List.Put(StrUsage2Beg+10           ,' │   /ss:<pos.> song start position.                                          │');
  288.     List.Put(StrUsage2Beg+11           ,' │   /sr:<pos.> song loop start position.                                     │');
  289.     List.Put(StrUsage2Beg+12           ,' │   /sr:<pos.> song last position.                                           │');
  290.     List.Put(StrUsage2Beg+13           ,' │   /lq        "Low Quality", with this, spends less memory, but sounds worse│');
  291.     List.Put(StrUsage2Beg+14           ,' │   /hq        "Hi  Quality", deactivates the /lq.                           │');
  292.     List.Put(StrUsage2Beg+15           ,' │   /flp       equals to "ForceLoopMod = Yes" in the VT.CFG.                 │');
  293.     List.Put(StrUsage2Beg+16           ,' │   /nofl      equals to "ForceLoopMod = No"  in the VT.CFG.                 │');
  294.     List.Put(StrUsage2Beg+17           ,' │   /loop      equals to "LoopMod = Yes" in the VT.CFG.                      │');
  295.     List.Put(StrUsage2Beg+18           ,' │   /nolp      equals to "LoopMod = No"  in the VT.CFG.                      │');
  296.     List.Put(StrUsage2Beg+19           ,' │   /bfil      equals to "BassFilter = Yes" in the VT.CFG.                   │');
  297.     List.Put(StrUsage2Beg+20           ,' │   /nobf      equals to "BassFilter = No"  in the VT.CFG.                   │');
  298.     List.Put(StrUsage2Beg+21           ,#0);
  299.     
  300.     List.Put(StrUsage3Beg              ,' │ <device> can be:                                                           │');
  301.     List.Put(StrUsage3Beg+ 1           ,#0);
  302.  
  303.     List.Put(StrUsage4Beg              ,' │ Examples: The command line interpreter is too flexible to explain every    │');
  304.     List.Put(StrUsage4Beg+ 1           ,' │           little aspect of it, so to have an idea, just look below, and    │');
  305.     List.Put(StrUsage4Beg+ 2           ,' │           examine the example .VTO files.                                  │');
  306.     List.Put(StrUsage4Beg+ 3           ,'');
  307.     List.Put(StrUsage4Beg+ 4           ,' │   This plays the song "Axel F." through the PC Speaker with a volume of    │');
  308.     List.Put(StrUsage4Beg+ 5           ,' │   64 and a sampling frequency of 16000 Hz:                                 │');
  309.     List.Put(StrUsage4Beg+ 6           ,'');
  310.     List.Put(StrUsage4Beg+ 7           ,' │       VT /v:64 /d:Speaker D:\MODS\AXEL_F.MOD /f 16000                      │');
  311.     List.Put(StrUsage4Beg+ 8           ,'');
  312.     List.Put(StrUsage4Beg+ 9           ,' │   This plays the music of the Unreal demo, by Future Crew, as given in the │');
  313.     List.Put(StrUsage4Beg+10           ,' │   example .VTO file. Shells to the ASCII editor, editing the VT.PAS file:  │');
  314.     List.Put(StrUsage4Beg+11           ,'');
  315.     List.Put(StrUsage4Beg+12           ,' │       VT @UNREAL.VTO /sh:C:\BIN\Q.EXE VT.PAS                               │');
  316.     List.Put(StrUsage4Beg+13           ,'');
  317.     List.Put(StrUsage4Beg+14           ,' │   This plays the songs 1 and 2 (whichever format they are):                │');
  318.     List.Put(StrUsage4Beg+15           ,'');
  319.     List.Put(StrUsage4Beg+16           ,' │       VT 1 2                                                               │');
  320.     List.Put(StrUsage4Beg+17           ,'');
  321.     List.Put(StrUsage4Beg+18           ,' │   This plays the song 1 at 64 of volume and the song 2 at 128:             │');
  322.     List.Put(StrUsage4Beg+19           ,'');
  323.     List.Put(StrUsage4Beg+20           ,' │       VT 1 /v:64 / /v 128 2                                                │');
  324.     List.Put(StrUsage4Beg+21           ,'');
  325.     List.Put(StrUsage4Beg+22           ,#0);
  326.  
  327.     List.Put(StrInitializing           ,'    Initializing... ');
  328.  
  329.   END;
  330.  
  331.  
  332.  
  333.  
  334. END.
  335.